home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / miscstat.arc / NORMDIST.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-10-07  |  896 b   |  35 lines
  1. 1  'NORMal DISTribution
  2. 2  KEY OFF:SCREEN 0,1,0:WIDTH 40:COLOR 15,1,9:CLS
  3. 10   PRINT "NORMAL DISTRIBUTION"
  4. 20   PRINT 
  5. 30   PRINT "0) STANDARD, 1) NON-STANDARD
  6. 40   PRINT "WHICH TYPE OF VARIABLE";
  7. 50   INPUT S:IF S<0 OR S>1 THEN 50
  8. 60   IF S = 0 THEN 120
  9. 70   PRINT "MEAN";
  10. 80   INPUT M:IF M<0 THEN 80
  11. 90   PRINT "STANDARD DEVIATION";
  12. 100   INPUT S:IF S<0 THEN 80
  13. 110   GOTO 130
  14. 120  S=1
  15. 130   PRINT 
  16. 140   PRINT "TO END PROGRAM ENTER 'END' FOR X
  17. 150   INPUT "X";A$:X=VAL(A$):IF INSTR("Ee",LEFT$(A$,1)) THEN 290
  18. 180  X = (X - M) / S
  19. 190  R =  EXP ( - (X ^ 2) / 2) / 2.50663
  20. 200  PRINT:PRINT "FREQUENCY IS"R
  21. 210  Z = X
  22. 220  T = 1 / (1 + 0.33267 *  ABS (X))
  23. 230  T = 0.5 - (R * (0.436184 * T - (0.120168 * (T ^ 2)) + 0.937298 * (T ^ 3)))
  24. 240   IF Z >  = 0 THEN 260
  25. 250  T = 1 - T
  26. 260  PRINT:PRINT "PROBABILITY IS"T
  27. 270   PRINT 
  28. 280   GOTO 150
  29. 290  PRINT:LOCATE 24,1:PRINT"PRESS <SPACE> TO RUN AGAIN";
  30. 300  LOCATE 25,1:PRINT"PRESS <ESC> TO EXIT";
  31. 310  K$=INKEY$:IF K$="" THEN 310
  32. 320  IF K$=" " THEN RUN
  33. 330  IF K$<>CHR$(27) THEN 310
  34. 10000  RUN"MENU
  35.